Option Explicit
Sub B_Sample003()
    Dim myRng As Range
    Dim myChr As Characters
    Set myRng = Range("A1")				'Nxs
    With myRng
        .Clear						'xs檺M
        .Value = "HIKARU"			']wr
        'ǳƨ즹
        Set myChr = .Characters(Start:=4, Length:=3)	'}lmPr
        MsgBox myChr.Text
    End With
    Set myChr = Nothing					'
    Set myRng = Nothing
End Sub	
